From 36b0d50ec053f2e26be268f4b5f815aaa37167e0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 9 Apr 1994 19:34:45 +0000 Subject: [PATCH] (make_buffer_string): Copy properties whenever we have some even if they don't change. --- src/editfns.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index fd965e330c8..fbabf5809cc 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -900,7 +900,7 @@ Lisp_Object make_buffer_string (start, end) int start, end; { - Lisp_Object result, tem; + Lisp_Object result, tem, tem1; if (start < GPT && GPT < end) move_gap (start); @@ -909,9 +909,10 @@ make_buffer_string (start, end) bcopy (&FETCH_CHAR (start), XSTRING (result)->data, end - start); tem = Fnext_property_change (make_number (start), Qnil, make_number (end)); + tem1 = Ftext_properties_at (make_number (start), Qnil); #ifdef USE_TEXT_PROPERTIES - if (XINT (tem) != end) + if (XINT (tem) != end || !NILP (tem1)) copy_intervals_to_string (result, current_buffer, start, end - start); #endif -- 2.30.2